home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarfsound.dwarfx < prev    next >
Text File  |  1999-04-19  |  807b  |  10 lines
  1. /* DWaRFx Sound V0.7b By David 'COolWAve' Newton
  2. \\
  3. // Usage: DWaRFSound.DWaRFx <Env> <Nick> <Drawer> <[Sound]/LIST>
  4. \\
  5. // Responds to CTCP GETSOUND commands.
  6. \\
  7. // This script should only be used by the AmIRC rexx script.
  8. \\
  9. */
  10. Parse Arg envadr unick sdrawer sname;Address Value(envadr);Options Results;'GetMyNick';mnick=result;sname=Strip(sname);evnum=Substr(Address(),Pos('.',Address()));Call SetClip('DFxTIME'evnum,Time());If Upper(sname)="LIST" Then;Do;fname="T:"mnick".List";Address Command "List >"fname sdrawer" lformat %-32n%l";Address Command "Sort >NIL: "fname fname;End;Else fname=sdrawer||sname;If ~Open('File1',fname) Then "RAW NOTICE "unick" :"d2c(1)"ERRMSG GETSOUND "d2c(2)"|DWaRFx-TNG|"d2c(2)" :"sname" does not exist!"d2c(1);Else;Do;Call Close('File1');"Say /DCC SEND "unick fname;End;Exit